home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / scripts / AudioInfotmp next >
Text File  |  2000-05-08  |  2KB  |  65 lines
  1.  
  2. ; **** AudioInfo zum Hauptinhaltsverzeichnis der Amiga-Future-CD-ROM ****
  3. ; **** Skript und Icons © Cord Hagen ****
  4.  
  5. ASSIGN AFCX: ""
  6. ASSIGN SFX: AFCX:SFX ADD
  7. ASSIGN C: AFCX:C ADD
  8. ASSIGN LIBS: AFCX:LIBS ADD
  9. IF EXISTS ENV:ICSFX
  10. STATUS COM=PLAY16 >ENV:ICSFX
  11. BREAK $ICSFX
  12. SKIP ENDE
  13. ENDIF
  14. SETENV ICSFX=0
  15. SETENV ICSFX=0
  16. RUN >NIL: VT AFCD:GFX/AFCDSTART.ANIM DE=20
  17. RUN >NIL: PLAY16 SFX:HIVOLT.WAV L=4
  18. WAIT 1
  19. PLAY16 SFX:AFI01.WAV BUF=99999 >NIL:
  20. RUN >NIL: WBSCROLL 100 2 TIP: - Amiga Future © AudioInfo -      Übrigens .... das AudioInfo der Amiga Future © CD-ROM lässt sich durch erneuten Doppelklick auf das AudioInfo-Piktogramm jederzeit wieder anhalten !    Drücke jetzt die linke Maustaste, um diesen Informationstext zu beenden !              .....
  21. LAB ENDE
  22. DELETE ENV:ICSFX >NIL:
  23. ASSIGN LIBS: AFCX:LIBS REMOVE
  24. ASSIGN C: AFCX:C REMOVE
  25. ASSIGN SFX: AFCX:SFX REMOVE
  26. ASSIGN AFCX: "" REMOVE
  27.  
  28. ; Only AMIGA make it possible ;-)
  29.  
  30.  
  31.  
  32.  
  33. IF EXISTS ENV:ASSAFCD
  34. SKIP GO
  35. ENDIF
  36. ASSIGN AFCD: ""
  37. ASSIGN SFX: AFCD:SFX ADD
  38. ASSIGN C: AFCD:C ADD
  39. ASSIGN LIBS: AFCD:LIBS ADD
  40. LAB GO
  41. IF EXISTS ENV:ICSFX
  42. STATUS COM=PLAY16 >ENV:ICSFX
  43. BREAK $ICSFX
  44. SKIP ENDE
  45. ENDIF
  46. SETENV ICSFX=0
  47. RUN >NIL: VT AFCD:GFX/AFCDSTART.ANIM DE=20
  48. RUN >NIL: PLAY16 SFX:HIVOLT.WAV L=4
  49. WAIT 1
  50. PLAY16 SFX:AFI01.WAV BUF=99999 >NIL:
  51. RUN >NIL: WBSCROLL 100 2 TIP: - Amiga Future © AudioInfo -      Übrigens .... das AudioInfo der Amiga Future © CD-ROM lässt sich durch erneuten Doppelklick auf das AudioInfo-Piktogramm jederzeit wieder anhalten !    Drücke jetzt die linke Maustaste, um diesen Informationstext zu beenden !              .....
  52. LAB ENDE
  53. DELETE ENV:ICSFX >NIL:
  54. IF EXISTS ENV:ASSAFCD
  55. SKIP EXIT
  56. ENDIF
  57. ASSIGN LIBS: AFCD:LIBS REMOVE
  58. ASSIGN C: AFCD:C REMOVE
  59. ASSIGN SFX: AFCD:SFX REMOVE
  60. ASSIGN AFCD: "" REMOVE
  61. LAB EXIT
  62.  
  63. ; Only AMIGA make it possible ;-)
  64.  
  65.